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The Last Issue 


With deep regret I have to inform you that this is the last 
issue of Apple Assembly Line. The income at S-C Software has 
suddenly and finally decreased beyond the point at which AAL 
can continue to be published. I have found employment 
elsewhere, and for the time being have put S-C Software to 
Sleep. I will be working full time now as a programmer for a 
certain major manufacturer of Apple peripheral boards, for whom 
I have written a considerable amount of firmware over the last 
five years: Applied Engineering. 


If your subscription expiration date is still in the future, 
then I owe you something in place of those future issues of the 
newSletter. I would like to repay you with materials I have on 
hand, such as back issues of the newsletter, copies of my 
software products, or perhaps books. 


In order to determine how many months remain on your 
subscription, look at the mailing label. At the right end of 
the top line you will see a four-digit number, such as 8812. 
The first two digits are the year, the last two digits are the 
month of what should have been your last issue. The isSue in 
your hands is issue 8805. Subtract 88 from the year of your 
expiration date, and multiply the remainder by 12; add the 
product to the month of your expiration date, and subtract 5; 
the result should be the number of issues I Owe you. For 
example, if your expiration code is 8903, I owe you 10 more 
issues. 


If possible, I would like to give you back issues in place of 
future ones. Please write me and let me know which issues you 
would like. Include some second choices in case I run out of 
some of the issues. If you had a subscription which included 
monthly disks, I will also include the disks with the back 
issues. 


<< continued on next page >> 


Of course, if you already have all of the back issues you will want to work out 
some other arrangement. Alternatively, you may want to select some item(s) 
from among the following software and hardware products and apply your 
remaining subscription toward the purchase price. The actual amount of your 
credit depends on how much you paid for your subscription; I'll trust you to 
work that out. 


By the time you are reading this, I will be working during the day for my new 
employer. Please write with your request, or call and leave complete details 
on my answering machine at (214) 324-2050, by September 30, 1988. 

ts both for $120 


Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 owners . . . . « «© « $20 
ProDOS Upgrade Kit for Version 2.0 DOS owners . . . . «© «© «© « « $30 


Cross Assemblers for owners of S-C Macro Assembler . . $32.50 to $50 each 
(More info on these below) 


S-C DisAssembler (ProDOS only)... .. . without source code $30 
with source code $50 


ProVIEW (ProDOS-based disk utility program) Bra “ube A, ee ok, dat teh ee S20 
Full Screen Editor for S-C Macro (with complete source code) . . . . $49 


S-C Cross Reference Utility... . . « « .« without source code $20 
with source code $50 


S-C Word Processor, both DOS & ProDOS, both 40- & 80-columns, 
with complete source code te $50 


DP18 and DPFP, double precision math for Applesoft, 
including complete source code. . . $50 


S-C Documentor (complete commented source code of Applesoft ROMs) 
e e e e e e e e $50 


AAL Quarterly Disks . 8 © helm thCUmehCU eC eSCté«eaHs $15, OY” any ffour for $45 
Vinyl disk pages, 6"x8.5", hold two disks each . . .. « 10 for $6 # 


Sider 20 Meg Hard Disk, includes controller & software. . . ($695) $550 


+ 


65802 Microprocessor, 4 MHz (Western Design Center) er ee eee se 


quikLoader EPROM System aie - 8 whl hl hl lel ele CO $179) $170 
PROmGRAMER (SCRG) .. . . 8 ew ele lel ltl $149.50) $140 


# These items add $2 for first item, $.75 for each additional item for 
shipping in USA. 

+ Add $10 for shipping in USA. 

Customers outside USA inquire for postage needed. 

Texas residents please add 8% sales tax to all orders. 

<< Master Card, VISA, Discover and American Express >> 
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About S-C Macro Cross AssemblerS......csccerccecocseceeeee BOO Sander-Cederlof 


Combining the versatile Apple II with the S-C Macro Cross Assemblers provides a 
cost effective and powerful development system for many different 
microprocessors. 


All of the S-C Macro Assemblers are all identical in operation: only the 
language assembled is different. Each S-C Macro Assembler is a complete macro 
assembler with an integrated, co-resident program editor, and operates in any 
member of the Apple II family having at least 48K RAM and one disk drive 
(ProDOS versions require 64K RAM). Each is written in 6502 assembly language 
for execution in Apple II series computers, but assembles standard mnemonics 
for the target processor into binary object code for that processor. The 
standard version assembles code for either 6502, normal 65C02, the Rockwell 
special version of the 65C02, or 65C816 microprocessors. Cross Assemblers are 
available for a wide variety of microprocessors. 


S-C Cross Assemblers are sold as supplements to the standard S-C Macro 
Assembler. The S-C Macro Assembler, complete with 120-page reference manual, 
costs $100 for either the DOS 3.3 or ProDOS version, or $120 for both; once you 
have it, you may add as many Cross Assemblers as you wish at a much lower 
price. The following S-C Macro Cross Assembler versions are now available: 


Microprocessor DOS 3.3 ProDOS' Both 
Motorola: 6800,1,2,8/6301 $50 $50 $70 
6805 $50 $50 $70 
6809 $32.50 n/a ; 
68HC11 $50 $50 $70 
68000 $50 n/a 
Mitsubishi: 50740 series $50 $50 $70 
Intel: 8048 family $32.50 n/a 
8051 family $32.50 n/a 
8080/8085 $32.50 n/a 
Zilog: Z-80 $32.50 n/a 
RCA: 1802/1805 $32.50 n/a 
DEC: LSI-11 $50 n/a 
General Instruments: GI-1650 $50 $50 $70 
GI-1670 $50 $50 $70 
Sharp: LH5801 $50 $50 $70 


The assembled object code may be directed either to Apple memory or to a DOS 
3.3 or ProDOS binary file. If you have an EPROM burner, the object can be 
burned into EPROMs. (We recommend and sell the SCRG PromGramer, which burns 
any 24- or 28-pin EPROM from 2716 through 27512. It fits in an Apple slot, and 
is only $140.) Other options are to download your object code to a target 
system via a serial port, to download to a ROM-emulator, or to execute direcly 
out of Apple memory with a co-processor card. Co-processor cards for the Z-80, 
6809, and 68000 are available from various manufacturers. 
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Peeking Inside AppleWorks 1.3.........-..-Bob Sander-Cederlof 


This seems like a good time to give some sort of index to all 
of the pieces of AppleWorks I have discussed in the past five 
issues of AAL. The following table is in order by address 


within the code. 


1000-1185 JMP vector, etc. Mar 88, Feb 88 
1186-119D CALL.FOR.AWPROGRAM.DISK Mar 88 
l19E-122C LOAD. PROGRAM.SEGMENT.A Mar 88 
122D-1340 LOAD.SEGMENT.FROM.DISK Mar 88 
1341-1365 APPEND.STRINGS Dec 87 
1366-136D CLEAR.MAIN .WINDOW this issue 
136E-139C FLUSH.KEYBUF.CHECKING.ESC this issue 


139D-13Bl CLR.LINE.X.TO.LINE.Y this issue 
13B2-13C0O CHECK.KEYBUF Feb 88 
13C1-14CF various messages Mar 88, this issue 
14D0 INVERSE .FLAG Jan 88 
14D1-153F DISPLAY.STRING Jan 88 
1540-1543 FUN.CLR.LINE Jan 88 
1544-1549 FUN.CLR.CH.TO.EOL Jan 88 
154A-155]1 FUN.HOME Jan 88 
1552-1575 FUN.CLR.CH.TO.EOS Jan 88 
1576-1592 FUN.GOTO.XY Jan 88 
1593-1598 FUN.CURSOR.LEFT Jan 88 
1599-159B FUN.HANG.UP Jan 88 
159C-15A0 more of CURSOR.LEFT Jan 88 
15A1-15AA FUN.CURSOR.RIGHT Jan 88 
15AB-15BB FUN.CURSOR.UP Jan 88 
15BC-15C9 FUN.CURSOR.DOWN Jan 88 
15CA-160A SCROLL Jan 88 
160B-160E FUN.INVERSE Jan 88 
160F-1616 FUN.NORMAL Jan 88 
1617-1621 FUN.CORNER.BR Jan 88 
1622-1628 FUN.CURSOR.BOL Jan 88 
1629-1633 FUN.CORNER.TL Jan 88 
1634-1644 FUN.FULL.SCREEN Jan 88 
1645-165D FUN.BEEP Jan 88 
165E-1715 FUN.SHUFFLE Jan 88 
1716-1737 BASE.CALC Jan 88 
1738-1778 CLR.CH.TO.EOL Jan 88 
1779-179C FUNTBL Jan 88 
179D-17D0 CONVERT.A.TO.RJBF.STRING this issue 
17D1-1814 DIVIDE.PO.BY.P2 this issue 
1815-1817 Another HANG.UP Jan 88 
1818-1822 BEEP.AND.CLEAR.KEYBUF this issue 
1823-1836 MOVE.CURSOR.TO.XY Feb 88 
1837-1841 SHOW.HELP.STRING this issue 
1842-184F WARN.IF.FULLDESK this issue 
1850-186B SHOW.FULLDESK.WARNING this issue 
186C-1871 SHOW.COMMAND. ENTRY this issue 
1872-1879 CALL.ORGANIZER this issue 
187A-18AC COPY.SCRN.LINE.TO.0900 Feb 88 
18AD-18DC GET.x.PARMS Dec 87 
18DD-18E3 GET.MENU.TABLE. INDEX Apr 88 
18E4-18F1 MAKE.MENU .LINE.NORMAL Apr 88 
18F2-190B MAKE.MENU .LINE. INVERSE Apr 88 
190C-191C RESTORE.ESCAPE.AND.HELP Apr 88 
191D-1A73 SELECT.MENU.LINE Apr 88 
1A74-lAFB REVERSE.A.SCREEN .LINE Apr 88 
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LAFC-1lAFF SET.PRODOS.BITMAP Mar 88 
1BOO-1BOA CLR.PRODOS .BITMAP Mar 88 
IBOB-1B2A DRAW.TOP.AND.BOTTOM.LINES this issue 
1B2B-1B33 POST.CHANGE.FLAG this issue 
1B34-1B4D MULTIPLY.X.BY.Y this issue 
1B4E-1B83 MULTIPLY.PO.BY.P2 this issue 
1B84-1BAB MOVE.BLOCK.DOWN Dec 87 
1BAC-1BDE MOVE.BLOCK.UP this issue 
1BDF-1BFO POP.ESCAPE.ROAD.MAP this issue 
IBF1-1C13 WAIT.FOR.SPACE.RETURN.OR.ESCAPE this issue 
1C14-1C20 variables for PRINTER this issue 
1C21-1D0D PRINTER.DRIVER this issue 
1DOE 2?? 

1DOF-1D2F PUSH.ESCAPE.ROAD.MAP this issue 
1D30-1D34 various variables Feb 88 
1D35-1D45 AW.KEYIN Feb 88 
1D46-1DDA KEYIN.ANOTHER.CHAR Feb 88 
1DDB-lE7F KEYIN.ANALYSIS Feb 88 
LE80-1E89 MOVE.CURSOR.TO.TCOL.TROW this issue 
lE8A-1E93 SAVE.GOTO.XY this issue 
1E94-l1EA8 MAP.SCRN.CHARS.TO.INTERNAL Feb 88 
1lEA9-1EB3 POINT.PSTR.AT.OA0O Feb 88 
lEB4-1EBE MAP.LOWER.TO.UPPER this issue 
lEBF-lED8 FILTER.LC.TO.UC Dec 87 
LED9-l1lEF7 COMPARE.STRINGS Dec 87 
LEF8-1F09 MOVE.STRING Dec 87 
1FOA-1F3D READ.KEYBOARD Feb 88 
lF3E-1F9F DISPLAY.AT this issue 
1FAO-1FA6 TRUNCATE.TO.79.IF.OVER.80 this issue 
1FA7-1FDO POLL.KEYBOARD Dec 87 
1FD1-1FDF DELAY.TENTHS Jan 88 
1FEO-1lFE8 CLEAR.KEYBUF Feb 88 
lFE9-1FF4 DISPLAY.TOKEN.X this issue 
LFF5-2028 DISPLAY.ON.LINE.23 this issue 
2029-2092 DISPLAY.MENU .LINE Apr 88 


As you can see, I am trying to fill in all the gaps this month. 


There is still more code beyond $2092 in the main section of 
AppleWorks, running all the way up to $2E84, but I have not 
finished disassembling all of it yet. 


DON LANCASTER STUFF 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 


ASK 
THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 
way back to column one. 
Edited and updated. 


Both Apple and desktop 
publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


APPLE lic/lle 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Appie! You stop 
any program at any time. 


Eliminates all dropouts on 


your HIRES screen dumps. 
Gets rid of all hole blast- 


ing. For any lic or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VISA/MC 


(602) 428-4073 
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The new DataLink' 2400 modem 


from Applied Engineering, it's a lot more 
than just twice as fast. 


Applied Engineering’s new DataLink”™ 2400. Simply put, 
the finest modem on the market for your Apple IIcs, 
Ile or II+. 

Bring home a world of information . . . from up to the 
minute flight information to whole libraries of resource 
materials. Even download free software and games. 


Twice the speed. —<—— 4 
At transmission speeds up | 
to 2400 bps (bits-per-second), 
Applied Engineering's new 
DataLink 2400 is capable of 
putting text on the screen faster 
than the human eye can follow. 
That means you can capture a 
great deal more material in less 
time than with 1200 bps modems. And unlike other 
modems, the DataLink 2400 comes complete with 
powerful, easy-to-use communications software. 


Complete communications software included. 
Both our new DataLink 2400 and our DataLink 1200 
modems feature AE’s exclusive communications software 

—on disk and in ROM—everything needed to get you 
immediately up and running. Our powerful DataTerm 
software for the IIcs and Ile supports VI-52 screen 
emulation, macros, file twansfers, on-line time display, 
recording buffer and more. It even stores hundreds of 
phone numbers for auto-dialing and log on. And for II+ 
and 64K IIe owners, our OnLine 64 software has many of 
the same powerful features. 


Worldwide compatibility. 

The DataLink 2400 is fully compatible with Bell 103 and 
212 protocols, as well as European protocol CCITT V.22 
BIS, V.22 and V.21. It operates at varying transmission 
speeds from 0-300, 1200 and 2400 bps. 

The new 2400, like our best-selling DataLink™ 1200, 
carries a full five year warranty and comes complete with 
two modular phone jacks for data and voice calls, a 
thoughtful feature that means fewer wires to connect We 
also include an extra long telephone cable, in case your 
computer is across the room from your telephone jack. 
You can track the progress of calls either electronically or 
via on-board speaker. And built-in diagnostics reliably 
check transmission accuracy. 


_ et ake ce 
oo . 


AEE 


Prices subject to change witbout notice. Brands and product names are registered 
trademarks of their respective bolders. 


Packed with important features: 

e Non-volatile memory for modem configuration 

e Full Hayes AT compatibility 

e Point-to-Point, ASCII Express, Access II compatibility, in 
addition to AE's included DataTerm and OnLine 64 
software. 

e Super Serial Card “Front End” for highest software 
compatibility (unlike others) 

e Adaptive equalization and descrambling 

e Hardware configuration for DSR and DCD 

e PC Transporter (MS-DOS) compatibility 

e FCC certified design 


$204.90 in freebies. 

We also throw in a nice collection of 
goodies—a free subscription to the 
GEnie network worth $29.95, $60 of 

free on-line time from NewsNet, a free 

$50 subscription to the Official Airline 
5 Guide and a fee-waived membership 
©; to The Source worth $49.95 plus 
gs $15 of free on-line time. 

That's $204.90 worth of free 
memberships, discounts and 

on-line time when you purchase the powerful DataLink 
2400 at $239. 


DataLink 1200 reduced. 

Loaded with all the features of the new 2400, (except 
CCITT, DSR/DCD and non-volatile ROM gel ea 
our 1200 bps DataLink modem, com- i 
plete with software and freebies, is an 
affordable alternative at only $179. 


Order today! 

To order or for more information, see your dealer or call 
(214) 241-6060 today, 9 am to 11 pm, 7 days. Or send 
check or money order to Applied Engineering. MasterCard, 
VISA and C.O.D. welcome. Texas residents add 7% sales 
tax. Add $10 outside U.S.A. 


HAG. APPLIED ENGINEERING” 
The Apple enhancement experts. 


(214) 241-6060 


P.O. Box 5100, Carrollton, TX 75011 
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# (1366) 100C 25E2 2710 2ACA 2D34 
CLEAR .MAIN .WINDOW 


LDX WINDOW. TOP 
LDY WINDOW .BOTTOM 
ore CLR.LINE.X.TO.LINE.Y 


# (136E) 


100F 


FLUSH .KEYBUF. CHECKING. ESCAPE.AND. SPACE 
LDA #0 


STA FLAG. FOUND. ESCAPE 
STA FLAG. FOUND. SPACE 
#1 Signal not to analyze char in KEYIN 
STA FLAG. DONT. ANALYZE. KEY 
JSR CHECK .KEYBUF 
3 -»-no chars in buffer 
JSR AW.KEYI 


N 
CMP #310 <ESC>? 


BNE e Pare 4°) 

LDA #1 oelen set flag and get another 
STA FLAG. FOUND. ESCAPE 

BNE . rcs he 

CMP ee20 <SPACE> 

BNE . e-e-no, get another 

LDA #1 see he set flag and get another 
STA FLAG. FOUND. SPACE 

BNE .1 oee always 

LDA buffer is empt 


#0 now 
STA FLAG. DONT. ANALYZE. KEY Rost ene char-analysis in KEYIN 
RTS return 


Clear screen from line (X) to line (Y), and 


i: stop line to clear 
Y)=bottom line to clear 


ty window to full screen. 


(139D), 1012 136A 
LR. LINE. X.T0.LINE: ¥ 


CLRSTR+4 


#79 
JSR MOVE.CURSOR. TO. XY 
JSR DISPLAY. STRING. PO 
CLRSTR 


DA 

RTS 

-DA #6 6 bytes in string 

~HS OC Set bottom-right corner of window 
~HS Agtpeeee Go to xx,yy 

-HS 0 Clear inside window 

~HS OF Back to a fullescrn window 
-ph $13C1 

-MA MSG MACRO TO SHORTEN LISTING 
DA #:1- = 

~AS "J1" 

. EM 

MA AS MACRO TO SHORTEN LISTING 


>MSG "Place the AppleWorks PROGRAM disk in Drive 1 and 
-DA pg pea ee " 
~HS 81 Open-Apple picture press Return. 
>AS "-? for Help® 

-DA #MSG.. 4-8-1 

>AS "Type entry or use " 

-HS 81 Open-Apple picture 


NX 


>AS commands 

MSG "Press Space Bar to continue " 

>MSG "Do you really want to do this" 

>MSG "Type number, or use arrows, then press Return " 
-DA #MS e X-#- 4 
~HS OA inverse 

>AS " WARNING. Desktop is full. Action not completed. * 
-HS OB normal 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED 11! Jf IN A MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple II 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple Il features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Apple II diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple Il on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple Ii screen. Then use SCREEN.GEN to transfer directly from the MAC to an Apple fl (with 
SuperSerial card ) or lic. Includes Apple il diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 

Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MIDI-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-MAGIC compatible 
with Apple Il family using Passport MID! card (or our own input/output card w/drum sync for only $99.00). 

FONT DOWNLOADER & EDITOR: $39.00 
Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and contro! codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, Il+, //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple I! machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables. displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 


The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 
Converts a ‘dumb’ parallel printer !/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps. Specify 
printer. IMX-86 with Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 8092A, C.itoh 8510 
(Prowriter), OkiData 82A/83A with Okigraph & OkiData 92/93. 


‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novations Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnOO-CnFF and $C800-CFFF. 
C-PRINT For The APPLE //c: $69.00 


Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


ee ee eee ee ww 2 8 BOO ee ee ew Oe ewe ee ee ew ee ew ew ew ee we ee wm ee we wee ee eee ew ete ow ee 


Unless otherwise specified, all Apple Il diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
ECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


BF- 
Ci- 


eh ed eed eed ed od ow od a od oo ao wd ob > a uw ob oo oo od oe oo SS a od a 
a a a 


DF- 
E 


EC- 
EE- 
FO- 
F2- 


FA- 
FC- 


FF- 
01- 


08- 
OA- 
0C- 
OD- 
OF- 


eh ont ed ed eed th eh etd eh ed ced ed ed ed eh ed eth eh etd ed ed et ce ee ee ed sdk ed dd ee ed od sd od a a 
DWOWS HOMMMMOO OIA AIA AS SSaaS 
an 
t 


Page 10.....Apple Assembly Line..... May, 1988..... Copyright (C) S-C SOFTWARE 


CD=- AD 


4C 


2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

23800 

0 2810 

4 2820 

06 28 30 

2840 

64 2850 

2860 

F6 2870 

0 2880 
A 28 

06 2900 

2910 

OA Ay 

F6 Soho 

0 2950 

i) 2960 

8 2970 
20 29 

0 2990 

2 3000 

20 3010 

9E 10 3020 

3030 

as to da 

a 18 358 

3070 

030 

090 

100 

AE 18 3110 

3 oo Ha 

gs 00 418 

FO 00 3150 

160 

01 Wt 

Fi 1380 

FO 3136 

F1 200 

03 3210 

3220 

28 3230 

00 240 

Fe 250 

F 260 

1 3270 

91 3280 

92 290 

F2 00 

F3 10 

n iB 

me 

3350 

F 60 

F 0 

O4 0 

F2 0 

F3 3400 

3410 

E5 3420 

91 3430 

92 44Q 

450 

ne 

3480 

15 18 3490 

3500 


* (179D) 1018 2037 25A0 25C5 25D6 


# Convert (A) to rd ent justified, blank-filled 
# decimal string in RJBF.STRING. Also return 
the three digits in A,X,Y. In both Peeres: 
& the three digits are {n ASCII, with leading 
; zeroes converted to blanks. 
CONVERT.A.TO.RJBF. STRING 
LDY #'0' Start with ASCII zero 
1 CMP #100 Count the hundreds 
BCC .2 ~--none left 
SEC take 100 out 
SBC #100 
INY and count it 
BNE .1 --- always 
2 LDX #'0O! Start with ASCII zero for 10's 
«3 CMP #10 Count the tens 
BCC .4 ~ee-none left 
SEC take 10 out 
SBC #10 
INX and count it 
BNE .3 ~-e always 
4 ORA #'0O! Change units to ASCII 
CPY #'0' Change eecne zero to blank 
BNE .5 -e-not a leading zero 
LDY #' ' -»-1Z, change to blank 
CPX #'0O' Might be another lz, tens digit 
BNE .5 -e-nmot a leading zero 
LDX #' ! -.e-1Z, change tens to blank 
5 ee RJBF. STRING+1 store the 3 characters 


STX RJBF. STRING+2 
STY RJBF.STRING+ 
LDA RJBF.STRING+ also return in AXY 


1E 

O.BY.P2 

JSR GET. 4. PARMS 

1 LDA (PO),¥Y Get two arguments via P0-P3 
STA MR Gey Dividend 


STA DIVISOR,Y Divisor 
CPY #1 


LDA DIVISOR 

ORA DIVISOR+1 

BNE .2 

SEC Division by zero, return .CS. 
BCS 5266 -. always 


wo 
~ 


REMAINDER 
STA REMAINDER+1 
LDX #$10 
3 ROL M. REG 
ROL M. REG+1 
ROL REMAINDER 
ROL REMAINDER+1 


LDA REMAINDER 
SBC DIVISOR 


LDA REMAINDER+1 
SBC ss emaaaicde 


STY REMAINDER 
STA REMAINDER+1 


3 
ROL M.REG 
OL M. REG+1 


Ba ee ee a 
* (1815) 101B 1599 1815 2D45 
HANG JMP HANG 


For Those Who Want the Most 
From Those Who Make the Best. GS-RAM: 


Now expand the IIGS RAM and ROM with up to8 MEG of ‘Instant On” memory with the allnew Gs-RAM! 


GS-R. 1 


GS-RAM has an all new design. A design that 
delivers higher performance including in- 
creased speed, greater expandability, and 
improved software. 

More Sophisticated, Yet 

Easier to Use 


Gs-RAM provides a built-in print buffer that 
allows you to continue working in Apple 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 


GS-RAM works with all Ilcs software. In fact. | Grow by Kilobytes or Megabytes 


any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
GS-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities We've designed the 
new GS-RAM to be easier to use too—you 
don’t have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same claim. 
More than Just Hardware 

Each Gs-RAM and Gs RAM Plus includes the 
most powerful set of IIGs software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card. This software includes the 
most powerful disk-caching program available, 
the GS-RAM Cache. The Cache will make most 
of your applications run up to 7 times faster 
Also induded is a diagnostic utility that lets 
you test your Gs-RAM by graphically showing 
the location of any bad or improperly 
installed RAM chips. And for AppleWorks 
users, we give you Our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering's Expander program 
eliminates AppleWorks intemal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 


' to 22,600 records in the database. The 


Expander allows all of AppleWorks, including 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


We offer Gs-RAM in two configuraticns so 
you can increase your memory 256K at a 
time (Gs-RAM) or a megabyte at a time 
(GS-RAM Plus). Both are [Ics compatible and 
both come with our powerful enhancement 
software. GS-RAM can hold up to 1.5 MEG of 
250K chips and Gs-RAM Plus can hold up to 
6 MEG using 1 MEG chips And since both 
use standard RAM chips (not high-priced 
SIMM's), you'll find expanding your Gs-RAM 
Or GS-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on GS-RAM Plus. If a Gs-RAM owner outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 

Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your GS-RAM or GSRAM Plus will retain both 
programs and data while your [lcs is tumed 
off Now when you tum your [Ics back on, 
your favorite software is on your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGs memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—-you want Because 


In quality, 
performance, 
compatibility, 
expandability and 
support, Applied 
Engineering’s GSRAM 
and GSRAM Plus are 
number one.” 


| 
z 2 
| Steve Wozniak, the creator 


| of Apple Computer 


aE 


| 


| 
| 
| 
j 
| 
| 
| 
| 


| 
| 


| AE APPLIED ENGINEERING” | 


Applied Engineering has the most experience 
in the industry with battery-backed memory 
for the Apple, you are assured of the most 
reliable memory back-up system available. 
And in the world of battery-backed memory, 
Rekability is everything, That’s why Applied 
Engineering uses state-of-the-art “GEL-CELL's” 
instead of Ni-Cad batteries (if Ni-Cads aren't 
discharged periodically, they lose much of 
their capacity). RamKeeper has about 6 
hours of “total power failure” back-up time. 
That's 6 times the amount of other systems. 
But with power from your wall outlet, 
RamKeeper will back-up Gs-RAM, Gs-RAM 
Plus, or most other IIGs memory cards 
indefinitely. Should you ever have a “total 
power failure,” RamKeeper switches to its 
6-hour battery. When power retums, Ram- 
Keeper will automatically recharge the battery 
to full power. RamKeeper incorporates a 
dual rate charger, status LE.D.’s, and ad- 
vanced power reducing circuitry. RamKeeper 
comes complete with battery, software, and 
documentation. 
GS-RAM’s Got it ALL! 
e 5-year warranty — parts & labor 
e 6 RAM banks (most cards have 4) 
e Memory expansion port 
e ROM expansion port 
_¢ Ultrafast disk caching on ProDOS 8 AND 
ProDOS 16. 
e Expands AppleWorks intemal limits 
e Includes hi-res self test 
e No soldered-in RAM chips 
e Expandable to 8 MEG 
e No configuration blocks to set 
e RamKeeper back-up option allows 
permanent storage of programs & data 
e 15-day money-back guarantee 
e Proudly made in the USA 
| 


GS-RAM with 256K 

GS-RAM with 512K 

GS-RAM with 1 MEG 
GS-RAM with 1.5 MEG 
GS-RAM with 2.5 to 3.5 MEG 
GS-RAM Plus with 1-8 MEG 


RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am. to 11 pm 7 days. Or send 
check or money order to Applied Engineering 
MasterCard, VISA and CO.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 | 
outside USA 


The Apple enbancement experts. | 
(214) 241-6060 | 


P.O. Box 798, Carrollton, TX 75006 
Prices subject to change without notice. 


GS-RAM, Gs-RAM Plus and RamKeeper are tademarks of Applied Engineering Other brands and product names are registered trademarks of their respective holders. 


3510 # (1818) 1021 1986 1A2D 1COC 26CC 
3520 BEEP. AND.CLEAR .KEYBUF 
1818- A2 3230 LDX #$10 BEEP TOKEN 
181A- 20 EQ 1F 3540 JSR DISPLAY. TOKEN .X 
181D- 20 EO 1F re JSR CLEAR .KEYBUF 
1920~ 38 560 LDA #$01 
” a 
3250 -ph $1837 
3600 #------------- - ene ee ee 
3610 ® (1837) 1027 201C 
3020 SHOW. HELP. STRING 
1837- 20 02 DO 3630 JSR MEASURE. FREE. MEMORY 
183D- ie 3E Ms 3640 JSR DISPLAY. AT 
1840— 14 3650 -DA #$42,#$17,MSG..2 “Apple-? for Help" 
1841- 60 3po0 RTS 
3600 WARN .IF.FULLDESK 
1842- AD F5 OF 3690 LDA KBYTES.DESKTOP. LEFT 
1845- OD F6 OF 3190 ORA KBYTES.DESKTOP. LEFT+1 
1848- DO 05 710 BNE .1 
184A- 20 50 18 3130 JSR SHOW. FULLDESK. WARNING 
184D=- AQ 00 730 LDA #$00 
184F- 60 i ; ol RTS 
120 # (1850) 102D 184A 
af O SHOW.FULLDESK.WARNING 
1850- AD F3 OF 0 LDA HIDE.FULLDESK.WARNING 
1853- DO 1 3790 BNE .2 Don't display anything 
1855- A6 96 3 00 LDX WINDOW.BOTTOM 
1 i E8 810 INX 
1858- 8E 5F 18 3820 STX .1 Store line number to print on 
185B- 20 3E 1F 3830 JSR DISPLAY. AT 
185E- FF 3 0 -DA #$FF 
185F- 00 9A 14 3850 .1 ~DA #$00,MSG..7 "WARNING" 
1862- 20 F1 1B 3860 JSR WAIT. FOR.SPACE. RETURN .OR.ESCAPE 
Ve e3- AD F4 OF 3870 LDA CHAR.FOR.BOTTOM.LINE 
1868- 20 AE 20 3880 JSR DRAW.BOTTOM.LINE 
186B- 60 3890 .2 RTS 
900 8-2 - en nn nnn nnn nnn = 
910 # (186C) 1030 
920 SHOW.ENTER.COMMAND.MSG 
186C- 20 a 1F ft JSR DISPLAY. ON .LINE. 23 
186F- OF 1 940 -DA MSG..3 "Type Entry or use Apple-commands"® 
1871- 60 320 RTS 
1h # (1872) 1033 238F 
980 CRs OMA eee 
1872= A2 F8 990 LDX #$ 
1874= 9A 000 TXS 
1875= AQ 20 4010 LDA #$20 
1877- 20 Ai 11 4020 JSR LOAD. PROGRAM. SEGMENT.A 
4030 #---Even though the above is a JSR, it never returns--- 
4040 #---from LOAD.PROGRAM.SEGMENT.A, because it enters----- 
ie : e777 the ORGANIZER directly -----<----------- ee ne een nee 
4070 ~ph $1BOB 
4080 #------------- - ee eee 
4090 # (1BOB) 1048 2765 
4100 DRAW. TOP. AND. BOTTOM.LINES 
1BOB=- A2 03 4110 LDX #$0 "HOME" TOKEN 
1BOD= 20 EQ 1F 4120 JSR DISPLAY. TOKEN .X 
1B10= 20 26 DO sles JSR X.D026 
ile 20 29 DO 4140 JSR DISPLAY.FUNCTION .AND. ESCAPE .MAP 
1B160= A2 00 4150 LDX #$00 
1B18~ AW 95 4160 LDY WINDOW.TOP 
1B1A- 88 iige DEY 
1B1B- 20 23 18 4180 JSR MOVE.CURSOR.TO. XY 
1B1E- A2 4F 4190 LDX #$4F 
1B20- AO 3D 4200 LDY #'=! PRINT iF} ='s above window 
1B22= 20 BE 20 4210 JSR REPEAT.CHAR.Y.X. TIMES 
1B25- AQ 2D 4220 LDA #'-! PRINT 79 -'s below window 
1B27- 20 AE 20 4230 JSR DRAW. BOTTOM.LINE 
1B2A- 60 Re : : RTS 
- 6 * Mark that the current file has been changed. 
4280 ® (1B2B) 104B 
4290 POST.CHANGE. FLAG 
1B2B- AD 6C OC 4300 LDA FLAG.CURRENT.FILE 
1B2E- 09 02 4310 ORA #$02 
1B30- 8D 6C OC 4320 STA FLAG. CURRENT.FILE 
1B33- 60 4330 RTS 
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4360 * (1B34) 104E 1A09 1€35 2538 2550 2575 
4360 MULTIPLY.X.BY.Y 

41370 STX MUL.X. FACTOR 
4380 STY MUL.Y.FACTOR 
4390 LDA #$00 
4400 STA M, REG 
4410 LDX #8 8 bits 
4420 61 LSR MUL.X.FACTOR 
4430 BCC .2 
4 CLC 
4450 ADC MUL.Y.FACTOR 
4460 .2 ROR 

4uzO ROR M. REG 

yy DEX 

4490 BNE .1 
4500 STA M. REG+1 

4510 RTS 

1520 Wassceccen secset Stare eucedessae 
4530 ® (1BYE) 1051 

4540 MULTIPLY. PO.BY. P2 
4590 JSR GET, 4.PARMS 
4560 .1 LDA (P0),¥ 
4570 STA P4,Y 
et 
1260 INY ; 
4610 CPY #$01 
4620 BEQ 
4630 LDA #$00 
460 STA COUNT 
4650 STA Z.A1 
4660 LDX #$11 
4670 CLC 
4680 .2 ROR Z.A1 
4690 ROR COUNT 
4700 ROR M. REG+1 
4710 ROR M. REG 
4720 BCC 
4730 LDA COUNT 
4740 CLC 
4790 ADC P4 
4760 STA COUNT 
N70 LDA Z.A1 
4780 ADC P5 
4790 STA Z. Al 
4800 .3 DEX 
4810 BNE .2 
4820 RTS 

1830) Weeieec se caseeslee ees ee eS oUteS 
4840 .ph $1BAC 

G50) Wemeeee= eee oce eee eee eee 
4860 ® (1BAC) 1057 1D1C 240% 263B 2653 
4870 MOVE. BLOCK .UP 
48 LDA’ #806 
4890 JSR GET. A. PARMS 
4900 LDA P5 
4910 BEQ 
4920 CLC 
ete ADC P1 
49 STA P1 
4950 LDA P5 
4960 ADC P 
4970 STA P 
4980 .1 LDY P 
4990 BEQ .3 
5000 .2 DEY 
5010 LDA (P2)4¥ 
5020 sta (P0),Y 
5030 TYA 
5040 BNE .2 
5050 .3 DEC P5 
5060 BMI .5 
5070 DEC P1 

5080 DEC P3 
5090 .4 DEY 
5100 LDA (P2),Y 
5110 STA (PO),Y 
5120 TYA 
5130 BNE .4 
p10 BEQ .3 

150 .5 RTS 
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n about the time it takes 
to read this headline, 
you can have the Finder 


ow your favorite program 
Ne be ready to go seconds 

after you flip your Apple 
Ics on. 

With Applied Engineering’s 
RamKeeper™ card, your IIcs 
retains stored programs and data 
when you turn your computer Off. 

RamKeeper powers up to two 
memory cards simultaneously 
when your Apple Ics is off. And 
battery backup keeps power to the 
boards even during power failures. 
Your programs and data are stored 
in a permanent, “electronic hard 
disk,” always ready to run. 


Superior power backup. 
Applied Engineering has the 
most experience in battery- 


up and 


running. 


RamkKeeper lets you keep programs and 
data in permanent, “electronic bard 
disk” memory. Turn your Apple Has on 
and you're ready to work. 


backed memory for Apple com- 
puters. We were the first to offer 
battery-backed memory with our 
RamFactor'“/RamCharger 
combination. Now RamKeeper 
sets the standard for IlGs memory 
backup. 

Our experience shows in the 
way we designed and built 
RamKeeper. We used sealed Gel/ 


Cell batteries — far more reliable 
than Ni-Cads in this application. 
Ni-Cads lose much of their capac- 
ity if they're not discharged 
periodically. Just when you need 
them most, Ni-Cads could run out 
of power. 

Our Gel/Cell pack, which is in- 
cluded in our price, gives you up 
to six hours of total power failure 
backup. That’s about 6 times 
longer than other systems. 

RamKeeper uses a Switching 
Power Supply — the same tech- 
nology used by Apple for the Ics 
power supply. This design uses en- 
ergy much more efficiently to 
keep your Apple running cooler. 


Our sealed Gel/Cell battery 


Stays outside your com- 
puter case. With other sys- 
tems, the batteries are in- 
stalled under the Ics 
power supply where a leak 
could ruin computer 
circuitry. 

Put two memory boards 

in the same slot. 

You might have bought 
your IIlcGs with Apple’s 
memory card. But now 
you want the features of 
Applied’s Gs-RAM™ card. 
RamKeeper efficiently re- 
solves the dilemma. 

You can use RamKeeper 
with your current [lcs 
memory card and add an- 
other memory card — all in the 
same slot. Just attach your current 
memory card to one side of your 
new RamKeeper card, connect the 
second card to the other side and 
plug RamKeeper into the slot. 

Of course RamKeeper works 
fine with just one memory card. 
But you can use two and still keep 
Slot 7 open with our optional 
Slot-Mover. 


Makes all of your memory 
usable memory. 
RamKeeper can power up to 16 
Meg of memory. Other systems are 
limited to only 8 Meg. In addition, 
RamKeeper lets you mix and 
match different types of cards. For 
example, you can have a Gs-RAM 
Plus“ using 1 Meg RAM chips and 
an Apple card using 256K RAM 
chips. Other systems are limited in 
the combinations they allow. 
RamKeeper firmware automat- 
ically configures for two cards 


RamkKeeper ts easy to install. Just plug it 
in. Even when you use two memory 
boards, you don’t have jumpers. You can 
have two memory boards but use only 
one slot 


APPLIED 


RamKeeper 


It all comes with RamKeeper .... board, 
Gel/Cell battery pack, easy-to-under- 
stand instructions, and Applieds power- 
ful AppleWorks Expander software. 


when the second card is installed. 
Other systems make you manually 
move jumpers. 

RamKeeper configures memory 
linearly. Other systems don’t, so 
they create memory gaps that can 
cause program crashes or keep 
some programs from using as 
much as half of your memory. 


You easily decide how much 
memory you'll devote to ROM and 
to RAM from the IIcGs Desk Ac- 
cessories menu. You can configure 
Kilobtyes or Megabytes of instant 
ROM storage for your favorite pro- 
grams. And you can change ROM 
size any time without affecting 
stored files. 

Protected from program 

crashes. 

RamKeeper controlling firm- 
ware is in an EPROM. A pro- 
gram crash can’t take out the 
operating software. With 
other systems, operating 
software is installed in 
RAM from a floppy. If the 
program crashes, it can 
take the operating soft- 
ware with it; and reinstall- 
ing the disk-based operating 
software destroys data in memory. 

Verifies data security. 

RamKeeper firmware uses op- 
tional startup checksums to verify 
that no data has been lost while 
power was off. The firmware also 


runs ROM and RAM memory tests 
without disturbing data on the 
card. 


Free AppleWorks 
Enhancement 
software. 

Applied’s powerful Apple- 
Works Enhancement 
software is free with 
RamKeeper. It makes 
AppleWorks faster and far 
more powerful by eliminat- 
ing AppleWorks internal 
memory limits. Word pro- 
cessor limits go from only 
7,250 lines to 22,600 lines. 
Database limits go from 
6,350 records to 22,600 
records. The clipboard size 
limit is increased from 255 to 
2,042 lines. It even automatically 
segments large files so you can 
save them on multiple floppies. No 
other company expands your [Ics’ 
AppleWorks internal limits. 

In addition, the most powerful 
disk-caching program available 
comes with the RamKeeper. The 
cache significantly increases ac- 
cess time to the Apple 3.5 Drive. 
Most applications will run up to 7 
times faster. 

The largest maker of Apple 
expansion boards. 

Applied Engineering has sold 
more expansion boards than any- 
one else. And we've been in busi- 
ness 8 years, long enough to see 
the vast majority of our com- 
petitors come and go. 

All of our products are crafted 
in the U.S.A. We back RamKeeper 
with a five year parts and labor 
warranty. And a 15-day, no ques- 
tions asked, money back 
guarantee. 

Only $189.00. 

See your dealer. Or call 
214-241-6060, 9 a.m. to Il p.m. 
7 days. Or send check or money 
order to Applied Engineering. 
MasterCard, VISA, C.O.D. wel- 
come. Texas residents add 7% 
sales tax. Add $10.00 outside 
U.S.A. Prices subject to change 
without notice. 


ZC APPLIED ENGINEERING” 


The Apple enbancement experts. 
PO. Box 5100 ¢ Carrollton, Texas 75011. 
(214) 241-6060 


RamKeeper, RamFactor, Gs-R AM. and Gs-RAM Plus are trademarks of Applicd Enginccring 


5160 
yi # (1BDF) 105A 

5180 POP. ESCAPE. ROAD.MAP 

5190 JSR MOVE. BLOCK. DOWN 

5200 .DA ESCAPE. ROAD.MAP, ESCAPE. ROAD.MAP+21, 168 


1BE8- Ag 00 5210 LDA #$00 MARK LAST ENTRY EMPTY 
1BEA- 0 OD 5220 STA ESCAPE. ROAD. MAPS 168 

1BED- 20 29 DO 5230 JSR DISPLAY.FUNCTION. AND. ESCAPE .MAP 
1BFO- 60 52 0 . RTS 


5260 * (1BF1) 105D 1862 2389 2728 2ADB 
5270 WAIT.FOR.SPACE. RETURN .OR.ESCAPE 


1BF1- 20 EO 1F 5280 JSR CLEAR .KEYBUF 
1BF4- 20 F5 1F 5290 JSR DISPLAY.ON.LINE. 23 
1BF7- 2E 1 5300 -DA MSG..4 "Press Space Bar to continue" 
1BF9- A2 90 5310 LDA #0 
1BFB- 5320 STA FLAG. FOUND. ESCAPE 
1BFD= 20 3? 1D 5330 .1 JSR AW.KEYIN 
1C00= C9 20 5340 CMP #$20 
1CO2= FO OF 5350 BEQ . ~«eGOT A SPACE 
1CO4- C9 OD 5360 CMP #$0D 
1C06- FO OB 23h0 BEQ . ««eGOT <RETURN>D 
1C08- C9 1B 5380 CMP #$1B 
1COA- FO 0 5390 BEQ . ~«eGOT <ESCAPE> 
1C0C- 20 18 18 5400 JSR BEEP. AND. CLEAR .KEYBUF 
1COF~ DO E 5410 BNE .1 . ALWAYS | 
1C11- £6 8 5420 .2 INC FLAG. FOUND. ESCAPE RETURN FLAG. FOUND. ESCAPE=$01, 
1013- 60 a 0 .3 RTS STATUS .NE. 
2120 # (1C14) 1CB3 1CDD 
1C14- 5460 PD.CHARCNT .BS 1 
ant ts sd ste 1C a Mea 
1015- 5480 PRNTR.CRLF. 
5490 ® (1C16) 1660" 3309 2336 
1C16- 5500 1.1016 'e' if //e, or ‘c' if //c 
1C1T= 2200 PRNTR. SETUP. STRING .BS 10 
5530 # (1C21) 1060 1E22 1E32 1E39 1E48 
5540 ® Called from KEYIN when Apple-H is pressed, 
5550 # and from JMP table at $1060 
5500 ® (A) = $00 Open Printer 
5570 # FE Print CRLF 
5580 # FF Close Printer 
open : other =#chars, PO,P1 is address of text. 
5610 PRINTER.DRIVER 
1C21= A2 00 5620 LDX #$00 
1C23- 86 24 2630 STX MON .CH 
1C25= 25 5640 STX MON.CV 
1C27- 5650 TAX 
1C28- FO 03 5660 BEQ .1 A=00, Open Printer 
1C2A= 4C AD 1C 5670 JMP .6 SOME OTHER FUNCTION 
5680 #---Open Printenss=e---s----seese 
1C2D=- AE 3D OF 5690 .1 LDX CURRENT. PRINTER .NO 
1C30- FO 78 5700 BEQ .5 None, or it would Have been 1-3 
1C32= CA 5710 DEX change range to 0,1,2 
1C33- AO 24 5720 LDY #36 mult pep by 36 bytes per printer 
1035= 2 3} 1B otto JSR MULTIPLY.X.BY 
1C36— A 1 5740 LDX M. 
1C3A~ BD 73 OF 5750 LDA X,OFT3, xX 
1C3D= 29 20 5760 AND #$20 non-zero means print LF after CR 
1C3F- 8D 15 1C 5770 STA PRNTR. ale FLAG 
1C42= BD 71 OF 5780 LDA X.OF71,X 
1C45~ AA 5790 TAX 
1C46- BD C6 OF 5800 LDA SLOTROM.MAP,X 
1C49- 29 02 5810 AND #$02 
1C4B- FO 5D 5820 BEQ . Not a printer interface, for sure 
1C4D=- EC A8 OE 5830 CPX OPEN. PRINTER.FLAG 
1C50- FO 5 5840 BEQ . 
1C052=- 8E A8 OE 5850 STX OPEN. PRINTER. FLAG 
\cee- 09 CO BBO ORA #$C0 
1C58—- 85 37 28 bo STA ese 
1C5A= AQ 00 5890 LDA #$00 
1C5C=- 85 36 5900 STA CSWL 
Lore AD OA 1D 2840 LDA HANDLE. PRNTR.SETUP. STRING 
1C61= 85 9A 5920 STA PO 
eee AD OB 1D 2239 LDA HANDLE. PRNTR.SETUP. STRING+1 
1C66—- 85 9B 59 STA P1 
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1CO8— AB 91 5950 
1C6A- BD 70 OF 5960 
1C6D- CD 16 1C 5970 
1G72- AD OC 1D 59 
Te- D 
1CT5- 18 6060 
1C76- 65 91 6010 
1078 85 9A 6020 
1C7A- AD OD 1D 6030 
1C7D- 69 00 6040 
yg 85 9B 6050 
1C81- AO 00 6060 
1C83- B1 9A 6070 
1C85- FO 23 6080 
1C87- 85 9C 6090 
1C89- 8D 82 CO 6100 
1C8C- C8 6110 
1C8D- Bi 9A 6120 
1C8F- C9 09 ae 
IeGse DO 10 6140 
1€93- AQ 89 8130 
1095=- AE EF OF 6160 
1C98- FO 0 ove 
1C9A- AE AS OE 6180 
1C9D- EO 02 6190 
1C9F- DO 02 6200 
1CAl- AQ O01 6210 
ane 20 ED FD 6220 
1CA6— C4 9C 6230 
1CA8- 90 E2 6240 
ICAA- 4C 03 1D 6250 
6260 
1CAD= C9 FE 6270 
1CAF- FO 33 6280 
1CB1=- BO 4B 6290 
1CB3= 8D 14 1C 6300 
1CB6= 20 B2 18 6 10 
1CB9~ AD A8 OE 6320 
1CBC- FO 45 6330 
1CBE- 8D 82 CO 6 0 
1CC1i=- AO 00 50 
1CC3=- B1 9A 6360 
1CC5= C9 61 °3 0 
i1CC7- DO O4 6 380 
1CC9- AQ 40 o8 0 
1CCB- DO 06 6400 
1CCD- C9 8D 6410 
1CCF- DO 02 6420 
1CD1= AQ 20 pee 
1CD3- C9 09 6440 
1CD5= DO 02 6450 
1CD7- AQ 89 6460 
1CD9=- 20 ED FD bho 
1CDC- C8 6480 
1CDD- CC 14 1C 6490 
1CEO- 90 Et 6500 
1CE2=- BO iF pean 
1CE4¥- AD A8 OE 6530 
1CE7— FO 1A 6540 
1CE9- 8D 82 CO 6390 
1CEC- AQ OD 6560 
1CEE- 20 ED FD 6570 
1CF1- AD 15 1C 6580 
1CF4- FO OD 6590 
1CF6- AQ OA 6600 
1CF8- 20 ED FD 6610 
1CFB- 4C 03 1D 6620 
6630 
1CFE~ AQ 00 6640 
1D00- 8D A8& OE 6650 
1D03- AD 83 CO 6660 
1DO00- AD 83 CO 8670 
1D09- 60 6680 
6690 
6700 
1DOA- 17 1C 6710 
6720 
1DOC- 61 OF oi Be 
6740 


LDX M.REG 
LDA X.OF70,X 
CMP I.1C16 
BNE .2 
LDA HANDLE. OF61 
CLC 
ADC M.REG 
STA PO 
LDA HANDLE. OF61+1 
ADC #$00 
2 Bt fe 
LDA e355 Fy 
BEQ .5 
STA P2 
STA ROM.DO00 
3 INY 
LDA (PO),Y 
CMP #$09 
BNE . 
LDA #359 
LDX FLAG. APPLE. 2C 
BEQ . -»-not an Apple //c 
LDX OPEN.PRINTER.FLAG 
CPX #$02 
BNE . 
LDA aed 
4 JSR MON .COUT 
CPY P2 
BCC . 
: JMP .13 
‘ CMP #$FE 
BEQ .11 A=FE, Print CRLF 
BCS .12 A=FF, Close Printer 
STA PD.CHARCN A=number chars to print 
JSR GET. 2.PARMS 
LDA OPEN. PRINTER.FLAG 
BEQ .13 
STA ROM.DOO0O 
LDY #$00 
at LDA (PO),Y 
CMP hp Change "Apple"™ to "@" 
BNE . ~ee-not an apple 
LDA #$40 
BNE . oe. always 
8 CMP #$8D change <RETURN> to <SPACE> 
BNE . eee not <RETURN> 
LDA #$20 
am) CMP #$09 change 09 (ctrl-I) to 89 
BNE .10 oe not 09 
LDA #389 
10 aa MON .COUT out to the printer, finally 
CPY PD.CHARCNT 
BCC .7 --e-more to print 
CS . --e finished 


BCS 
#.--Print CR 
LDA OPEN. PRINTER.FLAG 
BEQ .1 


- 13 
STA ROM.DO0O 
LDA #$0D 
JSR MON .COUT 
LDA PRNTR.CRLF.FLAG 
BEQ .1 
LDA #$0A 
JSR bee eae 


JMP .13 
#---Close Print er---------------- 


.12 LDA #$00 
STA OPEN.PRINTER.FLAG 
213 LDA RAM.DO00 
LDA RAM.DO000 
‘ RTS 
# (1D0A,B) 1C5E 1C63 
HANDLE. PRNTR.SETUP.STRING .DA PRNTR.SETUP. STRING 
# (1DOC D) 1C72 \CTA 
HANDLE. OF 1 .DA X.0F61 
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6750 * (1DOE) 1E10 
6760 -BS 1 
ere we we wn nn meme meee en nne= 
6780 ® (1D0F) 1063 
6190 PUSH .ESCAPE. ROAD. MAP 
20 B2 18 6800 JSR GET. 2.PARMS 
A5 9A 6810 LDA PO 
8D 2A 1D 6820 STA .1 FILL IN ADDRESS 
A5 9B pees LDA P1 
8D 2B 1D 6840 STA .1+1 
a AC ae 6850 JSR MOVE.BLOCK. UP 
OC A8 00 6860 ~DA ESCAPE. ROAD.MAP+21,ESCAPE.ROAD.MAP, 168 
20 F8 1E 6870 JSR MOVE.STRING 
E8 OC 6 0 : ESCAPE ROD EMAY 
00 00 890 1 : 0000 FILLED I 
20 29 DO 6900 JSR DISPLAY.FUNCTION.AND. ESCAPE.MAP 
60 6310 ‘ RTS 
£830 . -ph $1E80 
6950 * (1E80) 1069 1911 1236 19B2 2025 2612 261A 
6960 MOVE.CURSOR.TO.TCOL. TROW 
AD OE 6370 LDX TCOL 
AC AE OE 6980 LDY TROW 
20 23 18 6390 JSR MOVE.CURSOR.TO. XY 
7000 RTS 
7010 Sennen enn nme eee wenn ne 
7020 ® (1E8A) ime 
7030 SAVE.GOTO.XY 
8E AD 7040 STX TCOL 
8C AE OE 7050 STY TROW 
20 23 060 JSR MOVE.CURSOR. TO. XY 
60 ae 
T0800 teen m nme mmm wwe enw en en ne ee ee 
7090 ~ph $iEB4 
7100 Sennen nnn nnn een enn eee nee 
7110 * (1EB4) 106F 
7120 MAP.LOWER.TO.UPPER 
C9 6 Tike CMP #'a' 
90 0 140 BCC .1 ---not lower-case 
C9 7B iio CMP #'z'+1 
BO 02 7160 BCS .1 ~-e- not lower-case 
29 DF re AND #$DF flip to upper-case 
60 7180 .1 RTS 
1190 Senn n nnn nnn nnn ne ww wn wn ewww nn 
7200 -ph $1F3E 
7210 Benmnnnn ne ee een on ee ne eee ee 


1F3E 


BSC 2B93 2BA1 2BA8 2D37 2D3E 
PLAY ‘at 


r 
7220 & Display string (P2,P3) at (PO,P1) 
7230 & SR DISPLAY. AT 
7240 # -DA #column, #line 
$53) : -DA string. address 
270 * If column value is negative but not $FF, then add $94 
7280 # which clears bit 7 and adds 20 
Vane # If column value is $FF then center the string in 80 columns 
7310 # 
& 
D 


MERE op 107B 183A 185B 200C 25E5 2713 271A 2ACD 2B70 2B77 
IS 


20 AE 18 f JSR GET.4.PARMS 
AQ 05 50 LDA #305 Build string to set cursor position 
8D 00 OA 7360 STA STR.A 
A5 9A 7370 LDA PO 
8D 01 OA 7380 STA STR.A+1 
A5 9B 7390 LDA P1 
8D 02 OA 7400 STA STR. A+2 
A5 9C 7410 LDA P2 
é 720 CLC 
9 01 430 ADC #1 Build address of ist char after length 
8D B2 OE 7440 STA X.QOEB2 
A5 9D 7450 LDA P3 
69 00 7460 ADC #0 
8D B3 OE 70 STA X.OEB3 
AO 0 7480 LDY #0 Get length of string 
Bi 9C 7490 LDA (P2 
20 AO 1F 7500 JSR TRONCATE, TO.79.1F.OVER.80 
8D BH OE 7510 STA X.OEB 
AD 01 OA 7520 LDA STR. roe Was PO positive, meaning absolute column? 
10 17 7530 BPL .2 oe yes 
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1F6E- C9 FF 
1F70=- DO OD 
1F72=- AQ 50 
IF74- 3 
a ED B4 
1F78=- 4A 
1F79- 8D 01 
1F7C= 4C 85 
La 18 
1F80- 69 94 
1F82- 8D 01 
Meee 20 AQ 
1F88- AQ 03 
1F8A- 20 D1 
1F8D=- AD B2 
1F90- 85 80 
1F92=- AD B3 
1F95- 85 81 
1F97- AD B4 
1F9A- FO 03 
eer. 20 D1 
1F9F- 60 
1FAO- C9 51 
1FA2- 90 02 
1FAK- AQ UF 
1FA6- 60 
1FE9- 8E 00 
1FEC= 20 AQ 
1FEF- AQ 01 
1FFi- 20 D1 
1FF4- 60 


NM 

© 

© 

NM 

’ 

tw 

a 
aoe 
“OPrPNW=] ly 


1F 


18 
20 
DO 
1E 


So BO See ea oe ene eee oa oe oo eee ae een oe ee eee aS 
wleleleloelelelelelolololelelelfololelolololelololeoyvclolalolololelololeleolololeoleloleloloe{eo) 


oo 


8080 


fo clo sTo cloclo clo cle cle clocloc oc) 
ed ee weed ceed ceed ced ed eh ed 

_ 

© 


WO Com OW) EUW AD 


[ee] 
8) 
oO 
© 


oOooo°oceoo 


BNE ~..not centering, so add $94 


LDA #80 FF means to center in 80 columns 


SEC 80-length )/2 


ADC #$94 
STR. A+1 
2 JSR Ge er ere 
JSR DISPLAY. STRING 
. OEB2 


< null string 
JSR DISPLAY. STRING 


# (1FAO) 1F63 20A7 20C2 
TRUNCATE 70, forae OVER 00 
CMP #51 


ed t TEE? } 108A 181A 19 
# (1FE9) 1BOD 2015 2B 
DISPLAY. TOKEN .X 

STX STR.A 
or CoS ee neoale 


A 
JSR DISPLAY. STRING 
RTS 


Ul 


F 


WiSoSen ee eee ee oee lt eee es 
# JSR DISPLAY.ON.LINE. 23 

-DA string 

# 1. Display string starting at col. 0, line 23 
# 2. Clear rest of the line 

# 3. If 2.89 is $00, display "yxxxK Avail ."; 

& otherwise, displa pppten 2 for Help® 

4, Move cursor to end of the string. 


® (1FF5) 1093 118D 186C 1931 1A45 1BF4 20D6 25F3 
Sen GEE 2 


Ly 19B7 19C2 1A1E 1A97 1AAB 1AC3 1AD8 


SR GET.2.PARMS 

LDA PO 

STA .1 store address in parameter below 

LDA P1 

STA .1+1 

LDA (PO),Y length of string 

STA TCOL later Soo oa cursor to end of string 
LDA #23 on line 23 


ROW 
JSR DISPLAY. AT 
-DA ae #23 Column 0, line 23 


oa “DA 0060 String address, filled in 
LDX #$01 "Clear to End of Line" token 
JSR DISPLAY. TOKEN .X Print the token 
LDA Z. 89 
BEQ .2 iiss oraReey "xxxxK Avail." 
deh puOe TELESOTE Display “Apple-? for Help" 
<2 JSR DISPLAY.K. AVAIL Display "yxxxK Avail.®* 
3 Ise MOVE.CURSOR. TO. TCOL. TROW 
28 oui oe wees set eneceeeese 
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Klaxon Sound EffecCt....ccccccccvvcvsvcceeveee eRODeErt C. Moore 


Here is an interesting little sound effect generator, which you 
might like to use to call attention to an operator error. It 
uses the simple Apple speaker, so it is compatible with all of 
the many models in the Apple II series and even the clones. 


Lines 1110-1130 call on the SOUNDS subroutine to generate two 
bursts of sound. The first burst combines plays a higher note, 
the second a lower note. Both notes are combined inside SOUNDS 
with a pitch that is in between the two. The total effect 
sounds a little like a klaxon to me. 


Bob S-C inserted line 1100, which turns the dee-daw sound into 
dee-daw-dee-daw. You might also enjoy experimenting with 
different pitches and durations. You can change the 
intermediate pitch by change the value 63 in lines 1190 and 
1240. 


You might notice that DURATION2 never gets initialized to 
anything. If you want to, you could store 0 there by inserting 
these lines: 


1191 LDA #0 
1192 STA DURATION2 


However, you will not be able to tell the difference in how it 
sounds. The total time the horn blows is DURATION] times 256, 
less up to 255 if DURATION2 starts out non-zero. In the worst 
case, with DURATION2 starting at 1, the horn will finish 
blowing about 5% sooner. 


TO ee eo 
1 peG ; from Robert C. Moore, Laurel, Maryland. 
00- 1080 DURATION] -EQ 0 - 
01- 1050 DURATION2 [EQ 1 
02- 1060 PITCH EQ 2 
C030- 1080 SPEAKER EQ $C030 o 5 
800-20 03 08 1100 BOBSC JSR KLAXON an PRIMARY 
a FIRST PRIMARY PITCH 
OBO. 20 BA 08 1120 JSR SOUNDS 
0B08- A050 1130 LDY #80 SECOND PRIMARY PITCH 
1150 SOUNDS 
O80A- 84 02 ~=—«:1160 STY PITCH SAVE CALLER'S Y-PITCH 
O80C- A9 14 1170 LDA #20 LENGTH OF SOUND 
O80E- 85 00 ~—s«x11800 STA DURATION 1 
0B10- A2 3F 1190 LDX #63 SECONDARY PITCH 
0812- CA 1210.2. +DEX COUNT DOWN SECONDARY CYCLE 
0813- D0 05 ~—- 1220 BNE .3 -..NOT TIME FOR CLICK YET 
0815- 2C 30 CO 1230 BIT SPEAKER |. .CLICK NOW 
O818- AZ 3r 120 LDX #63 START ANOTHER CYCLE 
O81A- 88 1260 .3 DEY COUNT DOWN PRIMARY CYCLE 
O81B- DO 05 ~—=«-1270 BNE .4 ..NOT TIME FOR CLICK YET 
081D- 2C 30 CO 1280 BIT SPEAKER ° CLICK NOW 
0820- A’ 02 1290 LDY PITCH START ANOTHER CYCLE 
0822- c6 01 1310 "DEC DURATION? 256820 T 
o838- $8 Be Pt DEC I 56#20 TIMES ALTOGETHER 
7 DEC DURATION1 
O0828- DO EB 13h BNE .2 
O82A- 60 1350 RTS 
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AppleWorks Segment FunctionsS.......cceeseeeeee- Steve Stephenson 


I have been disassembling and patching AppleWorks since 1984 
for CheckMate Technology, and have learned a few things about 


it. 


one of the segments in the SEG.M0O and SEG.Ml files does. 


near as [I 


Seg.0l 
Seg.02 
Seg.03 
Seg.04 
Seg.05 
Seg .06 
Seg.07 
Seg.08 
Seg.09 
Seg.10 
Seg.ll 
Seg.12 
Seg.13 
Seg.14 
Seg.15 


Seg.16 
Seg.17 
Seg.18 
Seg.19 
Seg.20 
Seg.21l 
Seg.22 
Seg.23 


I also 


DB 


One interesting task was trying to figure out what each 
As 


can tell, here is the breakdown for AppleWorks 1.3: 


Common 
Main 
Help 


SingleLayout 


MultipleLayout 


ChangeNames 


Search 
Sort 

Report 
Report 
Report 
Report 
Report 
Report 


Main 
Util 
New 
Layout 
Open 
Output 


-doesn't exist- 


WP 
WP 
WP 
WP 


Common 
Main 
Help 
Print 


~doesn't exist-— 
-doesn't exist- 
SANE 
SANE 


Seg.24 
Seg.25 
Seg. 26 
Seg.27 
Seg.28 
Seg.29 
Seg.30 
Seg.3l 


Seg.32 
Seg.33 
Seg.34 
Seg.35 
Seg.36 
Seg.37 
Seg.38 
Seg.39 


Seg. 40 


Seg.41l 
Seg.42 


Seg. 43 


Common 

Main 

Help 

Print 
Layout 

Edit 
ToClipboard 
Options 


DeskTop Manager 
File Loader 
Printer Setups 
Import DIF for DB 
File Saver 


Import Quick Files for DB 
Import ASCII Text for WP 
Import VisiCalc for SS 


Main Help 


Import Text for DB 
Import DIF for SS 


Disk Formatter 


wrote a program which will break out the segments trom 
the SEG.MO and SEG.Ml files into individual binary files, each 
with their proper SEG number, load address, and length. 


There is no fancy prefix handling in the program, so the two 
source files and all the resultant files must all land in the 


Same directory. 


speed. 


There is also not any fancy error handling. 


I use a RAM disk of at least 600 blocks, for 


If any 


error occurs, the hexadecimal error code returned by MLI will 


be displayed. 


If not, 00 will be displayed when it's finished. 


The monthly AAL disk also includes a slightly different version 
of the Segment Splitter, which displays a line for each segment 
including the segment number, the file offset, starting 
address, and length. 


Apple 


1020 #-o--n ee en nnn nw er ewe 

beh # AppleWorks Se nt Splitter 

i , - by Steve Stephenson 

1060 MLI -EQ $BF00 

1070 ERRCODE EQ $BFOF 

1080 CREATE -EQ $CO 

1090 OPEN -EQ $C8 

1100 READ ~EQ $CA 

1110 WRITE EQ $CB 

1120 CLOSE EQ $CC 

ee SETMARK EQ $CE 

1140 Baewm men mmm ww ew wen nn enw neem ene ne 
eeterate May, 1988..... 
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~MA MLI Function, Parameter List 


No Error 


STR 
-DA a Number of bytes in string 
AS -"Jj1" String itself 


BUFFER. INDEX 38° $300 


0 PILE. CNT .E 


~OR ace 
.TF B. SEG. SPLITTER 


SEGMENT. SPLITTER 
LDA #1 


STA FILE.CNT 

PRELOOP 
>MLI OPEN, P.OPEN.SEGMX open seg.m0/1 
LDA P. OPEN .SEGMX+5 file refnum 
STA P.READ. INDEX+1 
STA P. READ. SEGNN+1 
STA P, SET. MARK+1 
>MLI READ, P. READ. INDEX read the index 


LDA FILE.CNT find offset to this seg 
ASL by multiplying by three 
ADC FILE.CNT 


TAX 
LDA BUFFER. INDEX,X et starting point in file 
STA P.SET.MARK+2. or SETMARK call 


LDA BUFFER. INDEX+1,X 
STA P.SET.MARK+3 
LDA BUFFER. INDEX+2,X 
STA P.SET.MARK+4 


ORA P.SET.MARK+ if 000000, no segment exists 

ORA P. SET.MARK+ 

BNE .1 ...-there is a segment 

JMP NEXT ~-- not one, go to next one 
1 LDA BUFFER. INDEX+3,X 

ORA BUFFER. INDEX+ Xx 


ORA ra - INDEX+5 ,X 


JMP NEXT 
#.--Compute length of segment---- 
SEC 


LDA BUFFER. INDEX+3,X start of next seg 

SBC BUFFER.INDEX,X - start of this 

STA P. READ. SEGNN+4 = length of this 

STA P.WRIT.SEGNN+4 

LDA BUFFER. INDEX+4,X 

SBC BUFFER. INDEX+1,X 

STA P. READ. SEGNN+5 

STA P WRIT. Peer 

ORA P. READ. SEGNN+ if length = 0000, go to next 


BNE 

JMP NEXT 
#.--Read the Segment------------- 
3 >MLI SE ARK P.SET.MARK move to the segment 

>MLI READ, P.READ.SEGNN read it into main BUFFER 
norm compute Stan. Address-------- 

LDA BUFFER ending addr of this seg 

SBC P.READ.SEGNN+4 - length of this segment 

= equals starting addr 
ook — 1 tarti war 


ER+1 
SBC P. READ’ SEGNN+S 
STA P.CREATE+6 
TXA 4 round to an even page 
INC P.CREATE+6 


#0 
4 STA P.CREATE+5 
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wt ad od anh od ad oth od od 
ant eh oh small, sol, axb amt ax od 


ee eh ee ek ek ek ek ek td th ed ed td od ot od et 
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#.--Create the Se nt File------ 


>MLI CREATE,P.CREATE create an individual seg.xx 


SMLI OPEN ,P.OPEN.SEGNN 
LDA P.OPEN.SEGNN+5 

STA P.WRIT. SEGNN+1 

STA P.CLOSE+1 

>MLI WRITE, P.WRIT. SEGNN 
>MLI CLOSE, P.CLOSE 


open a seg. xx 
refnum of file 


close seg.xx 


MA INLOOP 
NAME .M1 
CLOSE ALL 


PRELOOP 
CLOSE ALL 


$FDDA 
CLOSE ALL 
LDA 


STA P.CLOSE+1 
>MLI CLOSE, P.CLOSE 
RTS 

NAME.MX STR "SEG.MO® 


NAME.NN STR "SEG.01°* 
SNUMLO -EQ #-1 
SNUMHI -EQ 8-2 


P. OPEN . SEGMX #3,NAME .MX, BUFFER. SEGMX, #0 


P. READ. INDEX 
P.SET.MARK 


#4, #00,BUFFER. INDEX, 140 ,0000 
#2, #00, <000000 


P.READ.SEGNN .DA #4, #00,BUFFER ,0000,0000 
P.CREATE 


P. OPEN .SEGNN 


~DA 


-DA #3,NAME.NN,BUFFER.SEGNN, #00 


P.WRIT.SEGNN #4, #00,BUFFER ,0000,0000 
P. CLOSE -DA #1, #00 


. DUMMY 
~BS #+255/256 #256 -# 
BUFFER.SEGMX .BS $400 
BUFFER.SEGNN .BS $400 
BUFFER -E 
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write out a seg.xx 


#7, NAME .NN, #$C3, #$06 ,0000, #00,0000,0000 


force to page boundary 


More on AuxTypes in ProDOS CATALOGS..........e.eeeee.+--eBOb Sander-Cederlof 


Last month I presented a patch for BASIC.SYSTEM and another for SCASM.SYSTEM to 
cause the AuxType to be displayed for all file types, rather than just for TXT 
and BIN files. My patch was not quite sufficient, it turns out. My patch only 
worked for files whose type is a named type, displayed in the catalog with a 
three-letter name. Files with types displayed as a hexadecimal number still do 
not show the AuxType. Since I "tested" my patches in directories which only had 
named filetypes, I did not see the error. 


That was the bad news; the good news is that this month I will complete the job, 
and give you another simple patch to cause the rest of the AuxTypes to be 
displayed. 


In BASIC.SYSTEM you need to patch $A4F6 (which was $44) to $0E. You can do this 
with a POKE 42230,14. To put it back, POKE 42230,68. Or to make both last 
month's and this new change, permanently, do this: 


BLOAD BASIC. SYSTEM, TSYS,A$2000 
POKE 12051,17 
POKE 12022, 14 
BSAVE BASIC.SYSTEM, TSYS, A$2000 


The corresponding change in SCASM.SYSTEM is a little more difficult, because of 
the various versions out there. If you found last month's location, this new one 
is a JMP instruction about 14 lines before that one. Disassembling around $AFDO, 
you should see: 


CA DEX 
CA DEX 
CA DEX 
CA DEX 


10 F5 BPL ... 
20 XX XX JSR... 
4C(XX_XX] JMP bens patch the JMP address to point 
CA DEX to the BIT below. 
BD XX XX LDA ...,X 
20 XX XX JSR... 
DO FT BNE ... 
here 2C XX XX BIT ... 


You need to determine the address of the BIT instruction, and make the JMP jump 
to it. If you are with me this far, I am sure you can figure out the details. 
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New Version 1.2 of BASIC.SYSTEM..........-e-BOb Sander-Cederlof 


When I receive a new version of something from Apple, my first 
impulse is to try to find out exactly what they changed. 
Especially, when for the first time in four years they update a 
program so important as BASIC.SYSTEM. And eSpecially when 
there have been excellent articles published in the last four 
years clearly describing definite bugs, patches, and 

wor k-arounds. 


I was very disappointed this morning after carefully analyzing 
the new version 1.2 of BASIC.SYSTEM. I started by BLOADing the 
Old version 1.1 and then copying it into bank 2 of my IIgs. 
Then I BLOADed the new version 1.2 and used the monitor 
V-command to compare the two. There were a total of 24 bytes 
changed. Thirteen were inside the parameter block for a 
Get-File-Info call, so their value is irrelevant. One is a 
byte that is never referenced in any way. Three bytes were 
changed in the title screen, so that you see “1.2" instead of 
“1.1", and "COPYRIGHT APPLE 1983-87" instead of “COPYRIGHT 
APPLE, 1983-84". That leaves only seven bytes in the total 
update whose change has any significance. They have not fixed 
even ONE of the many published problems in BASIC.SYSTEM! 


So what did they fix? The description sheet that came with the 
update said they were trying to fix a bug in the CATALOG 
command. A variable they call TOTENT, which happens to be at 
BCB9-BCBA, is used for a counter to control the loop which 
displays files names and info. When the directory is first 
opened the total number of files in the directory is copied 
into TOTENT. The original intention of the programmer was to 
decrement TOTENT after reading each file entry in the 
directory. When the counter reaches “zero” the catalog should 
be finished. Unfortunately, the program did not decrement the 
counter properly. 


To make matters worse, the new code in version 1.2 does not fix 
the original bug. Instead, the patch just omits testing TOTENT 
altogether. Now if you have a long directory, delete most of 
the files leaving just a few file names in the first few 
entries, and CATALOG it in BASIC.SYSTEM, it will read all of 
the entries anyway. No real problem, just spins the disk a 
fraction of a second longer. 


The original bug was not a very serious problem either. It 
only failed when the total number of active files in a 
directory was a multiple of 256, which seldom happens. In 
fact, it seldom happens that there are that many files in any 
One directory, becausSe so many of the utilities and even 
AppleWorks get confused with large directories. The symptom 
you would see if you had exactly 256 files in a directory, as I 
understand it, is that you would get an “OUT OF DATA” error 
message at the end of the catalog instead of the “number of 
blocks" line. I suppose that could be unnerving, so the bug 
should be removed if possible. 


The faulty decrement code is at the end of the Read Next 
Catalog Entry subroutine, at $B215, and looks like this: 
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B215- DEC SBCB9 
B218- BNE $B21D 
B21A- DEC S$BCBA 
B21D- RTS 


If the initial number in BCB9 (low byte) and BCBA (high byte) 
is not a multiple of 256, this code will always result in $BCBA 
going negative when the total value has been countea down. But 
if the initial value IS a multiple of 256, it will take an 
extra 256 times to count it down to a negative value in SBCBA. 
The end-of-loop test code is at SBO9E: 


BO9E- LDA $BCBA 
BOA1- BPL $B078 


The correct way to decrement the 16-bit value is like this: 


LDA $BCB9 

BNE .1l 

DEC $BCBA 
-l DEC $BCB9 


This code results in both bytes being zero when it is counted 
all the way down. Code to test the TOTENT variable for zero 
already exists at the top of the loop in BASIC.SYSTEM: 


BO70- LDA $BCB9 
BO73- ORA SBCBA 
BO76- “BEQ $BOA3 


A little re-structuring of the code would result in even fewer 
bytes being required to do the decrement and loop control 
correctly. Instead, we have this strange wipe-out instead. 
Apple went further, and changed the branch at $B076 to two 
NOP's, and the error branch following the call to Read Next 
Catalog Entry to terminate the catalog without error. Very 
interesting. I wonder if they know something I don't? Maybe 
the value in the directory which we get TOTENT from is 
sometimes incorrect? Maybe it is sometimes 0000 when there are 
really files? Why else NOP-out the instruction at $B076? 
Well, I have never yet noticed such a problem. Have you? 
Notice that, with these patches, if you get a disk error when 
reading a directory block CATALOG will terminate without 
reporting the error: you just will not see the rest of the 
files. 


The description also claimed to fix a problem which caused the 
CATALOG to prematurely terminate if a <Space> was pressed after 
a control-S. I have never noticed any such problem in the old 
version, and was unable to make it happen today. But sure 
enough, it doesn't fail that way in the new version either. 
After all, they didn't change any of that code anyway! 


Why didn't Apple confer with Ken Kashmarek, Cecil Fretwell, 
Sandy Mossberg, Don Worth, Pieter Lechner, Dennis Doms or 
others who have been so carefully analyzing ProDOS and 
BASIC .SYSTEM over the last four years? 
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Anyway, after all the above is said, maybe you still wish you 
had version 1.2. If so, you can turn version 1.1 into 1.2 like 
this: 


JBLOAD BASIC.SYSTEM,TSYS,A$2000 


]CALL-151 

*2282 :B2 (was Bl ) 
*229A :A0 (was AC ) 
*22A2:B7 (was B4 ) 
*3A76:EA EA (was FO 28 ) 
*3A7C 326 (was 3A ) 
*3A9E:EA AS FF DO (was AD BA BC 10) 
*3D0G 


JBSAVE BASIC.SYSTEM,TSYS,A$2000 


The new version I have described above came on the newest IIlgs 
system disk. This also included an update to ProDOS-8 called 
version 1.6. I personally never saw version 1.5, s0 I compared 
1.6 to 1.4. There were way too many differences to determine 
what they really changed. Most of the differences appear to be 
due to a reassembly, so that the addresses of nearly everything 
internal have changed. A list of changes from 1.5 to 1.6 was 
included with the other documentation, but as I said I never 
Saw version 1.5. Furthermore, after my experience with verson 
1.2 of BASIC.SYSTEM, I don't know what to believe. The one 
major fix they claim in 1.6 is only significant in the IIgs, 
and has to do with Desk Accessories determining whether ProDOS 
MLI was busy or not when the Desk Accessory was called up. If 
you are not using a IIgs, I think I would stick with version 
1.4. 


Do You Have 
Apple Knowledge? 


If you do, Applied Engineering would 
like to put your knowledge to work. 
We're looking for someone to filla 
position in our Technical Support group. 
You must have a strong working knowledge 
of AppleWorks, ProDOS, DOS 3.3, and AppleSoft BASIC. 
Applied Engineering offers good benefits and a pleasant work 
environment. Office is non-smoking. We're located in the 
Carroliton area. 

So if you've got the knowledge and want to sink your teeth into a 

position with an ever-expanding company, give us a call at 
(214) 241-6060. 
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The Apple IIx Wish-O-Gram.......cccecccccccseees eff Creamer 


I have decided to try doing my bit to help dig up the best 
ideas for what the next edition of the Apple II family ought to 
be. I'm sending the "Wish-O-Gram“ to everyone I can think of 
who might have some influence on a new Apple II. 


In the first Wish-O-Gram I gave my opinions that the the next 
Apple II should be packed with hardware “horsepower"; be able 
to emulate the Mac and/or the IBM PC; have standard provisions 
for 20+ meg hard disk; have an empty socket for a math 
coprocessor, or one built in; have video output compatible with 
EGA/VGA monitors. 


If any of you readers of Apple Assembly Line have some thoughts 
on the subject, I would sure like to hear them. Send them to 
Jeff Creamer, Electronics Technology, Yavapai College, 
Prescott, AZ 86301. 


Enter Holt: 

Basic-like macros which make the complex simple. Don't re-write that 
multiplication routine for the hundredth time! Get EnterSoft instead! Do 
8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 
hassles. These routines are a must for the serious programmer who 
doesn't want to spend all of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 

GET YOURS TODAY. 


H Shane Table Program: 


For once! A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 
entirely in Basic, it is easily modified. Not copyprotected! Put them ona 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 
Version=$20.00, BOTH for $30.00| 


FF OG OE GE OG VG OV OG VO. 
ay ee ew as 


Send Check or Money Order To: 


EnterSoft Owners = $20.00 

Mark Manning 

c/o Simulacron \/Baggy Game ; ee Sarr rr Orr re : 
P.0. Box 58598 

Webster, TX 77598 Thanks for the letters - 

Keep Writing! 
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